home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 025a / gsdb25.zip / GS_WINFC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-03  |  4KB  |  126 lines
  1. Unit GS_Winfc;
  2. {-----------------------------------------------------------------------------
  3.                               Window PreProcessor
  4.  
  5.        GS_WINFC Copyright (c)  Richard F. Griffin
  6.  
  7.        07 July 1991
  8.  
  9.        102 Molded Stone Pl
  10.        Warner Robins, GA  31088
  11.  
  12.        -------------------------------------------------------------
  13.        This unit handles preprocessing of calls to a windows handler.
  14.        Ensures all references to windows routines are preprocessed.  This
  15.        will allow use of another windows handler instead of GS_Windw by
  16.        changing the procedure calls and uses statement in GS_Winfc.
  17.  
  18.                    SHAREWARE  -- COMMERCIAL USE RESTRICTED
  19.  
  20.    Changes:
  21.  
  22.  
  23. ------------------------------------------------------------------------------}
  24.  
  25. interface
  26.  
  27. uses GS_Windw;
  28.  
  29. type
  30.  
  31.    GS_Wind_Objt   = Object
  32.                        Win_Obj : GS_Windw.GS_Wind_Objt;
  33.  
  34.                        x1,
  35.                        y1,
  36.                        x2,
  37.                        y2      :  integer;  {Window size}
  38.                        fg,                  {Foreground color}
  39.                        bg,                  {Background color}
  40.                        tx,                  {Text color}
  41.                        bgh,                 {Inverted background color}
  42.                        txh     :  byte;     {Inverted text color}
  43.  
  44.                        procedure InitWin (x1w,y1w,x2w,y2w : integer;
  45.                                           txw,bgw,fgw,txx,bgx : integer;
  46.                                           dbox : boolean;
  47.                                           bname : GS_Wind_Str80;
  48.                                           cpywin : boolean);
  49.                        procedure SetWin;
  50.                        procedure RelWin;
  51.                        procedure NamWin(bname:string);
  52.                     end;
  53.  
  54. Procedure GS_Wind_GetColors(var txw,bgw,fgw,txx,bgx : byte);
  55. Procedure GS_Wind_SetColors(txw,bgw,fgw,txx,bgx : byte);
  56. Procedure GS_Wind_SetNmMode;
  57. Procedure GS_Wind_SetFgMode;
  58. Procedure GS_Wind_SetIvMode;
  59. Procedure GS_Wind_GetWinSize(var wx1,wy1,wx2,wy2 : integer);
  60.  
  61. implementation
  62.  
  63. procedure GS_Wind_Objt.InitWin(x1w,y1w,x2w,y2w : integer;
  64.                                txw,bgw,fgw,txx,bgx : integer;
  65.                                dbox : boolean;
  66.                                bname : GS_Wind_Str80;
  67.                                cpywin : boolean);
  68. begin
  69.    x1 := x1w;
  70.    y1 := y1w;
  71.    x2 := x2w;
  72.    y2 := y2w;
  73.    fg := fgw;
  74.    bg := bgw;
  75.    tx := txw;
  76.    txh := txx;
  77.    bgh := bgx;
  78.    Win_Obj.InitWin(x1w,y1w,x2w,y2w,txw,bgw,fgw,txx,bgx,dbox,bname,cpywin);
  79. end;
  80.  
  81. procedure GS_Wind_Objt.SetWin;
  82. begin
  83.    Win_Obj.SetWin;
  84. end;
  85.  
  86. procedure GS_Wind_Objt.RelWin;
  87. begin
  88.    Win_Obj.RelWin;
  89. end;
  90.  
  91. procedure GS_Wind_Objt.NamWin(bname:string);
  92. begin
  93.    Win_Obj.boxname := bname;
  94. end;
  95.  
  96. Procedure GS_Wind_GetColors(var txw,bgw,fgw,txx,bgx : byte);
  97. begin
  98.    GS_Windw.GS_Wind_GetColors(txw,bgw,fgw,txx,bgx);
  99. end;
  100.  
  101. Procedure GS_Wind_SetColors(txw,bgw,fgw,txx,bgx : byte);
  102. begin
  103.    GS_Windw.GS_Wind_SetColors(txw,bgw,fgw,txx,bgx);
  104. end;
  105.  
  106. procedure GS_Wind_SetNmMode;
  107. begin
  108.    GS_Windw.GS_Wind_SetNmMode;
  109. end;
  110.  
  111. procedure GS_Wind_SetFgMode;
  112. begin
  113.    GS_Windw.GS_Wind_SetFgMode;
  114. end;
  115.  
  116. procedure GS_Wind_SetIvMode;
  117. begin
  118.    GS_Windw.GS_Wind_SetIvMode;
  119. end;
  120.  
  121. Procedure GS_Wind_GetWinSize(var wx1,wy1,wx2,wy2 : integer);
  122. begin
  123.    GS_Windw.GS_Wind_GetWinSize(wx1,wy1,wx2,wy2);
  124. end;
  125.  
  126. end.